﻿<!--#include file="mymin.asp"-->
<title>管理友链类别</title></head><body><div class='main400'>
<%
w systemMsgRoot

dim rs,Sql

set rs=server.createobject("adodb.recordset")
sql = "select classid,class from 74hu_linkc Order by pid asc"
rs.open sql,myconn,1,1
If Not rs.eof	Then
	Dim PageSize,i,Count,page,pagecount
	PageSize=20
	Count=rs.recordcount
	w "共:"&count&"条友链分类<br/>"
	page=getN("page",1)
	if page<1 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	For i=1 To PageSize
	If rs.eof Then Exit For
	%><a href="mymin_class.asp?sid=<%=sid%>&amp;id=<%=rs("classid")%>"><%=rs("class")%></a>|<a href="editclass.asp?sid=<%=sid%>&amp;id=<%=rs("classid")%>">修改</a>|<a href='delcl.asp?sid=<%=sid%>&amp;id=<%=rs("classid")%>'>删除</a><br/><%
	rs.moveNext
 	Next
	w showPage("Link_class.asp", "", page, pageCount)&""

Else
	w "暂时没有友链类别！<br/>"
end if%>----------<br/>
<a href='mymin_index.asp?sid=<%=sid%>'>[友链管理]</a><%
call Last2()%>